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PASRTL.SRCJPASRESETK 


MODULE PASS$RESET 
! File: PASRESETK.B32 Edit: $BL1001 


BEGIN 


VRE RARER RAAT RARE AREA AEEEE EAE ET EAA A AAA ee 
' 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


© 
® 
*® 
® 
: ® 
!® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
!t ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
't OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
't TRANSFERRED. * 
M ® 
!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
!* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 

® 

® 

® 

* 

& 

® 


t® DIGITAL ASSUMES NO RESPONSIBI 
!® SOFTWARE ON EQUIPMENT WHICH | 


'® 
Vee RRR RARER RARER AEE RARE EERE REAR EEE RARE 
t 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


+ 
FACILITY: Pascal Language Support 
ABSTRACT: 


This module contains PASSRESETK, which implements the 
VAX-11 Pascal RESETK procedure. 


' 
i 
i 
i 
i 
i 
i 
; ENVIRONMENT: User mode - AST reentrant 
i AUTHOR: Steven B. Lionel, CREATION DATE: 16-February-1982 
i MODIFIED BY: 
i 1-001 - Original. SBL 16-February-1982 


7392:1 


16 
PAs SEE ae TK RESETK procedure gig £07 1982 4 9¢: 96: 18 AX-11 a) $35 72,4829 Page ( 


1 Declarations 14S PASRTL ESETK. 5 2;1 

i: 48 0047 1 XSBTTL ‘Declarations’ 

:; 649 048 1! 

; 29 049 1 ! PROLOGUE DEFINITIONS: 

3 1 050 1! 

g 26 0051 1 

; 27 B03 1 REQUIRE ‘'RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 

$ 55 b113 1! 

; 56 0118 1 ! TABLE OF CONTENTS: 

; oF 0119 1! 

; 38 0120 1 

; 59 3 1 1 FORWARD ROUTINE 

; 60 1 ¢ 1 PASSRESETK: NOVALUE; ' Do a RESETK 

ee 0123 #1 

: 6¢ 0124 1! 

.. Ss 0125 1 ! MACROS: 

3 64 0126 1! 

3 65 0127 1! NONE 

:; 666 0128 1! 

5 67 0129 1 ! EQUATED SYMBOLS: 

; 0130 1! 

; 69 0131 1! NONE 

; O16 1! 

: 71 013 1 ! FIELDS: 

3 72 0134 1! 

wae 0135 1! NONE 

.  - 0136 1! 

$ 75 0137 1 ! OWN STORAGE: 

: £6 0138 1! 

: 77 0139 1! NONE 

; 78 0140 1! 
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PASSRESETK ESETK procedure 16-Sep-1984 02:06:18 AX-11 Bliss-32 V4.0-74 
1-001 ASSRESETK = RESETK procedure 12-80 8=138e 95:06:18 PASRTL. REIPASRESESK B92: 1 
80 ZSBITL ‘PASSRESETK = RESETK procedure’ 
81 GLOBAL ROUTINE PASSRESETK ( 
Bs PFV: REF SPASSPFV ASS alt ° ' File variable 
8 KEY_NUMBER: REF VECTOR C, LONG), ' Key number 
84 R ! Unwind address if error 
85 ): NOVALUE = 
86 
87 ++ 
3 FUNCTIONAL DESCRIPTION: 
90 PASSRESETK implements the VAX-11 Pascal RESETK procedure. It 
4! rewinds the indexed file to the beginning of the specified index. 
Sz CALLING SEQUENCE: 
Be CALL PASSRESETK (PFV.mr.r, KEY_NUMBER.rl.r C, ERROR.j.r]) 
44 FORMAL PARAMETERS: 
oo PFV - The Pascal File Variable (PFV) passed +: reference. 
The structure of the PFV is defined in PASPFV.REQ. 
KEY_NUMBER - The number of the key to rewind on. 
ERROR - Optional. If specified, the address to unwind to 


| 
i 
j 
i 
i 
j 
i 
j 
i 
i 
i 
i 
if an error occurs. 
IMPLICIT INPUTS: 

NONE 

i IMPLICIT OUTPUTS: 

; NONE 

i ROUTINE VALUE: 

NONE 

SIDE EFFECTS: 

Praces file in Inspection mode 
; SIGNALLED ERRORS: 

: 

: 

: 

i 

i 


oO 
fale lelelelelelalelelelelelalalelaleolealalaleoleleoleolelelaleleleleloleleoleleoleolelelelelelelalelelolelelelolololol oo Me :> 


ee ec cc me ed ed od ed dd ed wd dd ed dD 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 


ee me me el me me ek ee ed ed ed ed nd ed od = wd 


WAIN WIWINIAINIPOPUNINPININININID 2 2 9 OOOO OOO 


FILNOTOPE - File not open 
FILNOTKEY = File not opened for keyed access | 
7 KEYNOTDEF = Key ‘'n’’ is not defined for this file 
3 ERRDURRES = Error during RESET or RESETK 
0 
1 _ 
2 
? BEGIN 
5 LOCAL y 
6 FCB: REF S$PAS$FCB_CONTROL_BLOCK, ! File control block 


16 
PASSRESETK RESETK procedure 1b-ge -1984 02:06: AX-11 Bliss-32 V4.0-74 Page 4 
1-001 PASERESETR - RESETK procedure 1 =300 138% 95:09:18 PASRTL.SRC PASRESESK B21 . (3) 
; 137 p138 STATUS ' Status from $REWIND 
; is 199 PFV_ADDR: VOLATILE, ! Enable argument 
: 139 0200 UNWIND_ACT: VOLATILE, ! Enable argument 
: 140 6 91 ERROR_ADDR: VOLATILE; ! Enable argument 
; 13§ 0 $8 BIND 
s 16 0204 RAB = FCB: REF BLOCK C, BYTE); ! RMS RAB 
> 144 0205 
> «6145 0206 BUILTIN 
> «146 0207 ACTUALCOUNT; 
> 147 0208 
: (148 8 09 ENABLE 
; 133 0 19 PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT , ERROR_ADDR); 
, 5 oeig IF ACTUALCOUNT () GEQU 3 
; 136 0213 2 
3 0214 2 ERROR_ADDR = .ERROR; ! Set unwind address 
3 156 0215 § 
ae by 0216 + 
s 136 0217 2 ! Set PFV address enable argument. 
. Sor 0218 2 !- 
; 158 0219 2 
; 159 0220 é PFV_ADDR = PFV CPFVSR_PFV]; 
: 160 0221 
: «(161 Oss¢ 2 hy 
: 162 02235 2 ' Validate and lock PFV 
> 163 0224 2 !- 
> 164 0225 2 
Yo 0226 § PASSSVALIDATE_PFV (PFV CPFVSR_PFVIJ; FCB); 
> 166 ogee 
3 6(fer 0228 2 hg : ; : 
; 168 ta 44 2 ! Set unwind action to unlock file. 
: 169 0230 2 !- 
3; 170 0231 2 
3; 171 0232 2 UNWIND_ACT = PASS$K_UNWIND_UNLOCK; 
: te 02335 2 
e te 0234 2 + eae 
: 174 0235 2 ! Open file if it should be implicitly opened. 
3: 175 0236 § le 
3 1% 0237 
5 iv? peae § IF NOT .PFV CPFVS$V_VALIDJ 
: +4 OSes 2 PASSSOPEN_IMPLICIT (PFV CPFVSR_PFV], FCB CFCBSR_FCBJ; FCB); 
; «181 bees 3 '¢ 
s 182 024 ! Verify that the file is open. 
3: 183 0244 !- 
> «1864 O5¢e 
3 18$ 246 IF NOT .PFV CPFVS$V_OPEN] 
: «186 0247 N 
: «4187 0248 SPASSIO_ERROR (PAS$_FILNOTOPE 0); 
; «4188 0249 
3; «189 0250 '¢ see 
3; 190 0251 ! Verify that the file is opened for keyed access 
: 191 0 26 le 
; +4 bS2 
3; 19 0254 IF NOT .FCB CFCBSV_KEYED) 


PASSRESETK TK procedure 
1801 SRESETR 
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1b-Se -1984 02:06:18 AX-11 Bliss-32 V4.0-74 
TK = RESETK procedure 12=88=138e 95:96:08 PASRTL. RESPASRESE TK 682: 1 


STATUS = SPASSRMS_OP (SREWIND (RAB=.RAB)); 
iu NOT .STATUS AND (.STATUS NEQ RMS$_BOF) AND (.STATUS NEQ RMS$_EOF) 


HEN 
SPASSIO_ERROR (PAS$_ERRDURRES); ! Error during RESET or RESETK 


ES 
AS 
1 2? THEN 

36 SPASSIO_ERROR (PASS_FILNOTKEY,0); 

58 ‘+ 

23 Verify that the key number is valid for the file. 

61 

6¢ a al anes CO] GEQU .FCB CFCBSL_NKEYS) 

64 SPASSIO_ERROR (PASS$_KEYNOTDEF,1,.KEY_NUMBER [0]); 

6 '¢ 

e Set the key number and do a SREWIND. 

69 . 

70 RAB CRABSB_KRF] = .KEY_NUMBER (0); ' Set key number 
71 PFV CPFVSV_DFB) = 0; ! Undefine file buffer 
Le FCB CFCBSV_EOF) = 0; ! Not (yet) at EOF 
74 

75 

76 

77 


14 


Do a GET. 


PASSSGET (PFV CPFVSR_PFV)], FCB CFCBSR_FCBI); 


+ 

! Set Inspection mode . 

! Indicate successful completion 
Unlock the file 


WN | SO OONAUVESWN (OOO VOUS WN HO ODNAUEWN —"ODODNAUSE 


eee oe tt at od od I 2 I BOO ODOOCOCOOOOOOOODO 


=PIPIPINPININININPININNID DPININPIPNIPINININININPI APIPIPIPYNPINIPIPIPUNPINIPUPPONoNoNononorfryd 


PROPIPIPOPIPOPINYNINININIDIDININININININININIPIPININPINININININININININININININ 2 2 


FCB CFCBSV_INSPECTION]) = 1; 
FCB CFCBSV_GENERATION) = 0; 
FCB CFCBSL_STATUS) = 0; 
: ? PFV CPFVS$V_LOCK] = 0; 
$ a RETURN; 
8 99 END; ! End of routine PASSRESETK 


-TITLE PASSRESETK RESETK procedure 
° \1-001\ 


CIT 
PA PASS$K_F ILNOTOPE 
: PASSK_FILNOTKEY 
“EXTRN PASSK KEYNOTDEF 
-EXTRN SYSSREWIND, PASSK_ERRDURRES 
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1-001 PASSRESETK = RESETK procedure beats 95:00:18 PASRTL. REIPASRESESK B92: 1 see (38 
~EXTRN PASS$S$GET 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


OCOOoOnNe of 


OOFC 00000 .ENTRY PASSRESETK, Save R2,R3,R4,R5,R6,R7 : 014 
$5 000000006 09 9 00002 WOVAB «= PASSSSIGNAL, RS Fete 
SE 08 C 00 SUBL : 
: b4 00¢ CLRL ERROR_ADDR + 0194 
04 AE 7 O00F CLRO NWIND_ACT : 
6D 00B3 CF DE 0001 MOVAL 10$, (FP) : | 
03 6C 91 00016 CMPB. ss CAPS, #3 + 0212 
04 Ff 0019 BLSSU 1 : 
6E 0c AC DO 0001B MOVL ERROR, ERROR_ADDR + 021 
56 04 AC DO OOO1F 18: MOVL  PFV, R > 022 
08 AE 56 DO 00023 MOVL R6, PFV_ADDR : 
000000006 00 16 00027 JSB PASSSVALIDATE_PFV + 022 
04 AE 01 00 900 D MOVL #1, UNWIND_ACT 3 023 
06 06 Ab E8 00031 BLBS  6(R6) : 023 
000000006 00 16 90035 JSB PASSSOPEN_IMPLICIT > 024 
08 07 Ab 05 €0 00038 2s: BBS #5, 7(R6), 3$ + 024 
7E D4 00040 CLRL = (§P) + 024 
7E 006 8F 9A 00042 MOVZBL #PASSK_FILNOTOPE, -(SP) : 
OE 11 00046 BRB 4 ; 
54 FC A? SE 00048 38: MOVAB =4(FCB), R4 > 0254 
OA 64 02 €0 0004¢ BBS #2, (R45, 5$ : 
7E 04 00050 CLRL = = (§P) : 0256 
7E 006 8F 9A 00052 MOVZBL #PAS$K_FILNOTKEY, (SP) : 
65 02 FB 00056 4s: CALLS #2, PASSS$SIGNAL : 
04 00059 RET : 
DO. A? 08 BC D1 O005A S$: CMPL § @KEY_NUMBER, -48(FCB) > 0262 
OD 1F 0005F BLSSU : 
08 BC DD 00061 PUSHL  @KEY_NUMBER > 0264 
01 DD 00064 PUSHL ; 
7E 006 8F 9A 00066 MOVZBL #PASSK_KEYNOTDEF, -(SP) : 
65 03 FB O006A CALLS #3, PASSSSIGNAL 3 
04 0006D RET ; 
35 AT 08 Bc 90 OO06E 6$: MOVB  @KEY_NUMBER, 53(FCB) > 027 
06 Ab 08 8A 0007 BICB2 We B(R6) > 027 
01 AG 20 BA 90077 BICB2 #32, 1(R4) : 027 
57 DD 00078 7$: PUSHL : 027 
000000006 00 01 FB 0007D CALLS #1, SYSSREWIND : 
gh 50 £8 00084 BLBS  $$STATUS, ; 
0001825A  &F 50 D1 00087 CMPL  $$STATUS, #98906 : 
04 iH OOBE BNEO $ : 
E7 03 Ad E8 000 BLBS (R4), 7$ : 
1A 50 £8 00094 8$: BLBS STATUS, 9$ > 0275 
00018198  8F 50 D1 00097 CMPL = STATUS. #98712 : 
11 13 0009 BEQL F 
0001827A = &F 30 D4 OA CPL STATUS, #98938 : 
7E 006 fF 9A aS MOVZBL #PASSK_ERRDURRES, -(SP) : 0277 
65 01 FB OOOAD CALLS #1, PASSSSIGNAL : 
04 00B0 RET : 
000000006 0 é 0B 9$: JSB PASSSGET > 0284 
01 «AG : B7 81582 #8. 1(R4) : 0 8 
01 «AG 1 A 00088 BICB2 #16, 1(R4) : 029 
D4 AZ D4 000BF CLRL -44¢FCB) > 0294 


PASSRESETK Res rocedure 1b-50 Sep-1984 02:06:18 AX-11 Bliss-32 V4.0-74 
1-001 Eres TK = RESETK procedure 1 Sep-1 7 95:06:18 PASRTL.SR RCIP reese rk BS2:1 
07 3 3=A6 80 8F 8A 00 Cs BICB2 #128, 7(R6) 
4 C RET 
0000 C8 10$: . WORD gays, nothing 
50 4 A ? OCA MOVL RO 
50 4 A 4 0c MOV ACIS RO 
F4 A F 890 PUSHAB ERROR. ADDR 
F8 AQ 9F 0D PUSHAB UNWINDB_ACT 
FC AO 9F 000D PUSHAB PFV_ADBR 
9 DD BRB PUSHL 
E 0 0D) PUSHL 
7E 04 ag D OOODF MOVa 4(AP), =(SP) 
000000006 00 03 FB 4 CALLS #3, PAS$$IO_HANDLER 
04 OOOEA RET 


; Routine Size: 235 bytes, Routine Base: _PASS$CODE + 0000 


239 0300 1 
240 0301 1 !<BLF/PAGE> 


PARERESE TK pe eels rocedure 
1-001 PASSRESETK = RESETK procedure 
s 26 0302 1 END 

308 0308 | 

44 0304 ) ELUDOM 


PSECT SUMMARY 


M 16 
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! End of module PASSRESETK 


0-74 Pp 
B92: sei (4 


Name Bytes Attributes 
PASSCODE 235 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
Speen Syabols sco---<- Pages Processing 
File Total iheced Percent Mapped Time 
.$255$DUA28: CSYSLIBISTARLET.L32;1 9776 8 0 581 00:01.0 
~$255$DUA28: CPASRTL.OBJJPASLIB.L32;1 427 96 22 33 00:00.4 


COMMAND QUALIFIERS 
PL ISSPENECE MEF SELB. BNE TEAL, OPT SRE EE I TRACE TO, 


Size: 

Run Time: 
Elapsed Time: 
Lines/CPU Min: 


235 code ; 0 data bytes 
00: §3° 8 


2698 
Lexemes/CPU-Min: 16136 
ope | Used: 
Compila 


103 pages 
tion Complete 


1S$:PASRESETK/OBJ=OBJ$:PASRESETK MSRC$:PASRESETK/UPDATE=(ENHS: PASRESE TK 


PMENT CORPORATION 
AND PROPRIETARY 
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